home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / ctlib100.zip / INSTALL.LZH / BSDTYPES.INT < prev    next >
Text File  |  1996-10-12  |  3KB  |  123 lines
  1. {**************************************************************************}
  2. {*  BitSoft Development, L.L.C.                                           *}
  3. {*  Copyright (C) 1995, 1996 BitSoft Development, L.L.C.                  *}
  4. {*  All rights reserved.                                                  *}
  5. {*  Global types and constants unit                                       *}
  6. {*  Version 1.2.1                                                         *}
  7. {**************************************************************************}
  8.  
  9. unit BsdTypes;
  10.  
  11. interface
  12.  
  13. {$ifdef Windows}
  14. uses WinDos;
  15. {$else}
  16. uses Dos;
  17. {$endif Windows}
  18.  
  19. const
  20.   intDivideByZero                = $00;
  21.   intSingleStep                  = $01;
  22.   intBreakPoint                  = $03;
  23.   intArithmeticOverflow          = $04;
  24.   intPrintScreen                 = $05;
  25.   intSystemTimer                 = $08;
  26.   intKeyPressed                  = $09;
  27.   intCommunications1             = $0B;
  28.   intCommunications2             = $0C;
  29.   intVideo                       = $10;
  30.   intEquipment                   = $11;
  31.   intGetMemorySize               = $12;
  32.   intAsynchronousComm            = $14;
  33.   intSystemServices              = $15;
  34.   intKeyboard                    = $16;
  35.   intPrinter                     = $17;
  36.   intExecuteROMBasic             = $18;
  37.   intWarmBoot                    = $19;
  38.   intRealTimeClock               = $1A;
  39.   intCtrlBreak                   = $1B;
  40.   intDos                         = $21;
  41.   intTSR                         = $27;
  42.   intNetwork                     = $2A;
  43.   intMultiplex                   = $2F;
  44.   intMouse                       = $33;
  45.   intEMS                         = $67;
  46.  
  47. const
  48.   MaxByte      = 255;
  49.   MaxShortInt  = 127;
  50.   MaxInteger   = 32767;
  51.   MaxLongint   = 2147483647;
  52.   MaxWord      = 65535;
  53.   MaxPointer   = 65520;
  54.  
  55. const
  56.   MinByte      =           0;
  57.   MinShortInt  =        -128;
  58.   MinInteger   =      -32768;
  59.   MinLongint   = -2147483647;
  60.   MinWord      =           0;
  61.  
  62. const
  63.   pc2    = 2;
  64.   pc4    = 4;
  65.   pc5    = 5;
  66.   pc8    = 8;
  67.   pc11   = 11;
  68.   pc64   = 64;
  69.  
  70. type
  71.   String2   = string[2];
  72.   String4   = string[4];
  73.   String5   = string[5];
  74.   String8   = string[8];
  75.   String11  = string[11];
  76.   String64  = string[64];
  77.  
  78. type
  79.   PLongInt = ^LongInt;
  80.  
  81. type
  82.   IntRec = record
  83.     Hi : Byte;
  84.     Lo : Byte;
  85.   end;
  86.  
  87. type
  88.   PDate = ^TDate;
  89.   TDate = record
  90.     Day : Byte;
  91.     Month : Byte;
  92.     Year : Integer;
  93.   end;
  94.  
  95. type
  96.   PTime = ^TTime;
  97.   TTime = record
  98.     Hours : Integer;
  99.     Minutes : Byte;
  100.     Seconds : Byte;
  101.     Hundredths : Byte;
  102.   end;
  103.  
  104. type
  105.   TActionProcedure = procedure (Item : Pointer);
  106.  
  107.   TActionProc = procedure (Item : Pointer; ACallerFrame : Word);
  108.  
  109.   TTestFunction = function (Item : Pointer) : Boolean;
  110.  
  111.   TTestFunc = function (Item : Pointer; ACallerFrame : Word) : Boolean;
  112.  
  113. {$ifdef Windows}
  114. var
  115.   Regs : TRegisters;
  116. {$else}
  117. var
  118.   Regs : Registers;
  119. {$endif Windows}
  120.  
  121. implementation
  122. end.
  123.